TOP

GETSUBSTR الدالة لـ LibreOffice Calcc

GETSUBSTR() الوصف

الدالة GETSUBSTR() مخصصة لتحديد جزء من النص بواسطة الفاصل المحدد.

يقوم كود الدالة GETSUBSTR بتقسيم النص إلى صفيف بواسطة الفاصل المحدد وإرجاع عنصر الصفيف المحدد وفقًا للرقم التسلسلي المحدد.


StarBASIC رمز GETSUBSTR

يوجد أدناه رمز الماكرو لإنشاء وظيفة مخصصة GETSUBSTR يمكنها تقسيم النص إلى أجزاء واسترداد أي عنصر منه في برنامج LibreOffice Calc.

لإضافة وظيفة جديدة، افتح القائمة Tools - Macros - Edit Macros...، وحدد Module1 وانسخ النص التالي إلى الوحدة:

  1. Function GETSUBSTR(Txt, Delimiter, n) As String    
  2.    Dim txtArray As Variant    
  3.        
  4.      If Txt = "" Then Exit Function  
  5.        
  6.       txtArray = Split(Txt, Delimiter)   
  7.       maxExt = UBound(txtArray)  
  8.         
  9.       If n >= 0 Then   
  10.         normExt = n - 1  
  11.       Else        
  12.         normExt = maxExt + n + 1  
  13.       EndIf        
  14.          
  15.       extToFind = Max(Min(maxExt, normExt), 0)  
  16.         
  17.       GETSUBSTR = txtArray(extToFind)  
  18.        
  19. End Function  

ثم أغلق Macro Editor، ثم ارجع إلى LibreOffice Calc واستخدم الوظيفة الجديدة في أي خلية.

باستخدام التمديد

يمكنك أيضًا استخدام الميزة GETSUBSTR() عن طريق تثبيت الامتداد المجاني YouLibreCalc.oxt أو نسخته كاملة المواصفات YLC_Utilities.oxt .

بعد ذلك ستكون هذه الوظيفة متاحة في كافة الملفات التي سيتم فتحها في LibreOffice Calc.